home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / asm / Tandem.lha / Tandem / Teaching / 16.asm < prev    next >
Encoding:
Assembly Source File  |  1999-08-21  |  909 b   |  47 lines
  1. * 16.asm     Introduction to MACRO's   version 0.00  1.9.97
  2.  
  3.  xref _AbsExecBase
  4.  xref _LVOOPenLibrary
  5.  xref _LVOCloseLibrary
  6.  xref _LVODisplayBeep
  7.  
  8. * macro to open intuition library (EQ if bad)
  9. intopen: macro
  10.  move.l _AbsExecBase,a6
  11.  lea intname,a1
  12.  moveq #37,d0
  13.  jsr _LVOOpenLibrary(a6)
  14.  move.l d0,intbase
  15.  endm
  16.  
  17. * macro top close intuition library
  18. intclos: macro
  19.  move.l _AbsExecBase,a6
  20.  move.l intbase,a1
  21.  jsr _LVOCloseLibrary(a6)
  22.  endm
  23.  
  24. * macro to beep all screens
  25. beep: macro
  26.  move.l intbase,a6
  27.  sub.l a0,a0
  28.  jsr _LVODisplayBeep(a6)
  29.  endm
  30.  
  31. * beep all screens
  32. Program:
  33.  intopen                 ;open intuition.library
  34.  beq.s Abort             ;go if can't
  35.  beep                    ;beep all screens
  36.  intclos                 ;close intuition.library
  37.  moveq #0,d0             ;quit good
  38.  rts
  39. Abort:
  40.  moveq #-1,d0            ;quit bad
  41.  rts
  42.  
  43. * data
  44. intname: dc.b 'intuition.library',0
  45.  ds.w 0
  46. intbase: ds.l 1
  47.